home *** CD-ROM | disk | FTP | other *** search
/ Nautilus 1993 November / Nautilus CD Magazine Volume 3-11 November 1993 Windows Edition.mdf / enter / games / wallpeep / wallpeep.bas < prev    next >
BASIC Source File  |  1992-12-13  |  1KB  |  32 lines
  1. DefInt A-Z
  2. Declare Function GetActiveWindow Lib "User" ()
  3. Declare Function BitBlt% Lib "gdi" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal dwRop&)
  4. Declare Function SendMessage% Lib "user" (ByVal hWnd%, ByVal wMsg%, ByVal wParam%, ByVal lParam&)
  5. Declare Function GetFocus% Lib "user" ()
  6. Declare Function PutFocus% Lib "user" Alias "SetFocus" (ByVal hWnd%)
  7. Declare Function PatBlt% Lib "gdi" (ByVal hDestDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal dwRop&)
  8. Declare Function StretchBlt% Lib "GDI" (ByVal hDC%, ByVal X%, ByVal Y%, ByVal nWidth%, ByVal nHeight%, ByVal hSrcDC%, ByVal XSrc%, ByVal YSrc%, ByVal nSrcWidth%, ByVal nSrcHeight%, ByVal dwRop&)
  9.  
  10. 'Global Const FALSE = 0
  11. 'Global Const TRUE = -1
  12.  
  13. Global Metafile As Integer
  14. Global DirName(1 To 10000) As String
  15. Global Dirs As Integer
  16.  
  17. Global Focus
  18. Global SavedDrive$
  19. Global Loading%
  20.  
  21. Global LBWidth%
  22. Global LBHeight%
  23.  
  24.  
  25.  
  26.  
  27. Global Dragging As Integer
  28. Global gDrawing As Integer
  29. Global Moving As Integer
  30. Global InPic1 As Integer
  31.  
  32.